home *** CD-ROM | disk | FTP | other *** search
/ Spawn Figure Collection / spawn collection cd.iso / setup / data1.cab / Program_Executable_Files / Collection.dir / 00001_èâä²âª.ls next >
Encoding:
Text File  |  1998-01-19  |  762 b   |  26 lines
  1. on exitFrame
  2.   global gcdpath, glocalpath, lseries, gnowseries, gnowtitle, gnowgroup, gedited, geditmode, gnowlistptr, lsortedt, gprotect, ggroup, gcheckbox, gcheck, gbitmap, sndmember, sndnumber, sndlist, slevel
  3.   set gcdpath to serchcd()
  4.   if voidp(glocalpath) then
  5.     set glocalpath to the pathName
  6.   end if
  7.   set lseries to []
  8.   set gedited to 0
  9.   set slevel to 3
  10.   set sndlist to ["m1.wav", "m4.wav", "m6.wav"]
  11.   newwave("m1.wav")
  12.   set sndnumber to 1
  13.   puppetSound(member "sound")
  14.   set the loop of member "sound" to 1
  15.   set the soundLevel to slevel
  16.   set the soundEnabled to 1
  17.   set lsortedt to [:]
  18.   set gnowlistptr to 1
  19.   readdatafile("collection.dat")
  20.   makesortlist()
  21.   resetdisp()
  22.   set gnowseries to 1
  23.   set gnowtitle to 1
  24.   set gnowgroup to 1
  25. end
  26.